home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 37
/
Tiger_Disk_037_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
sound 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
232b
|
7 lines
10 rem ****** sound 1 ******
11 fori=54272to54295:pokei,0:nexti
12 poke54296,15:poke54277,8:poke54278,255:poke54276,23
13 forz=1to5:a=2:fory=1to3:b=8:poke54273,a
14 fori=1to6:poke54287,b:b=b*1.4:nexti:a=a*1.5:nexty
15 fori=1to10:poke54287,b:b=b*1.05:nexti:nextz:poke54278,15:end